home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PLAYER PROGRAM.bas < prev    next >
BASIC Source File  |  2003-06-12  |  812b  |  15 lines
  1. 10  TEXT : HOME : VTAB 12: PRINT "PLEASE WAIT..."
  2. 20  PRINT  CHR$(4)"BLOAD SOFTDISK.ANM": HGR : POKE  -16302,0
  3. 21  ONERR  GOTO 40
  4. 30  FOR I = 1 TO 395: CALL 36928: NEXT I
  5. 35  TEXT : HOME : PRINT "JEFF MARRACCINI": PRINT "5582 DVORAK": PRINT "CLARKSTON, MICH.  48016": PRINT : PRINT "SAYS....": PRINT 
  6. 40  PRINT "  SOME DAYS, EVEN WHEN YOU LOOK AT SOFT-DISK IT JITTERS IN FRONT OF YOU. THE    REMEDY: SOME SOOTHING MUSIC!"
  7. 50  VTAB 12: PRINT "PLEASE WAIT..."
  8. 60  PRINT  CHR$(4)"BLOAD PLAYER2"
  9. 65  RESTORE 
  10. 70  FOR I = 1 TO 5: POKE  -16368,0
  11. 80  READ I$: PRINT  CHR$(4)"BLOAD ";I$;",A24576": POKE 30,0: POKE 31,96: VTAB 12: CALL  -958: PRINT "PLAYING: ";I$: CALL 768: NEXT I
  12. 90  PRINT  CHR$(4)"RUN KICK.IT.OFF"
  13. 95  DATA  "M.STAR WARS"
  14. 100  DATA   "M.PRELUDE","M.SONATA","M.MINUET (MOZART)" 
  15. 110  DATA  "M.JESU JOY"